home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / dev / misc / FlexCat.lha / Lib / E30b.sd < prev    next >
Text File  |  1999-11-28  |  3KB  |  119 lines
  1. ##rem $Id: E30b.sd,v 1.2 1999/11/28 03:36:41 carlos Exp $
  2. ##stringtype E
  3. ##shortstrings
  4. /****************************************************************
  5.    This file was created automatically by `%fv'
  6.    from "%f0".
  7.    Do NOT edit by hand!
  8. ****************************************************************/
  9.  
  10. OPT MODULE
  11.  
  12.  
  13. ->*****
  14. ->** External modules
  15. ->*****
  16. MODULE 'locale' , 'libraries/locale'
  17. MODULE 'utility/tagitem'
  18.  
  19.  
  20. ->*****
  21. ->** Object definitions
  22. ->*****
  23. EXPORT OBJECT fc_type
  24.         PRIVATE
  25.                 id      :       LONG
  26.                 str     :       LONG
  27. ENDOBJECT
  28.  
  29. EXPORT OBJECT catalog_%b
  30.         PUBLIC
  31.                 %i              :       PTR TO fc_type
  32. ENDOBJECT
  33.  
  34.  
  35. ->*****
  36. ->** Global variables
  37. ->*****
  38. DEF cat_%b : PTR TO catalog
  39.  
  40.  
  41. ->*****
  42. ->** Creation procedure for fc_type object
  43. ->*****
  44. PROC create( id , str : PTR TO CHAR ) OF fc_type
  45.  
  46.         self.id := id
  47.         self.str := str
  48.  
  49. ENDPROC
  50.  
  51.  
  52. ->*****
  53. ->** Procedure which returns the correct string according to the catalog
  54. ->*****
  55. PROC getstr() OF fc_type RETURN ( IF cat_%b THEN GetCatalogStr( cat_%b , self.id , self.str ) ELSE self.str )
  56.  
  57.  
  58. ->*****
  59. ->** Creation procedure for catalog_%b object
  60. ->*****
  61. PROC create() OF catalog_%b
  62.  
  63.         DEF fct : PTR TO fc_type
  64.  
  65.         cat_%b := NIL
  66.  
  67.         self.%i := NEW fct.create( %d , %s )
  68.  
  69. ENDPROC
  70.  
  71.  
  72. ->*****
  73. ->** Opening catalog procedure (exported)
  74. ->*****
  75. PROC open( loc = NIL : PTR TO locale , language = NIL : PTR TO CHAR ) OF catalog_%b
  76.  
  77.         DEF tag , tagarg
  78.  
  79.         self.close()
  80.  
  81.         IF ( localebase AND ( cat_%b = NIL ) )
  82.  
  83.                 IF language
  84.  
  85.                         tag := OC_LANGUAGE
  86.                         tagarg := language
  87.  
  88.                 ELSE
  89.  
  90.                         tag:= TAG_IGNORE
  91.  
  92.                 ENDIF
  93.  
  94.                 cat_%b := OpenCatalogA( loc , '%b.catalog' ,
  95.                                                                 [       OC_BUILTINLANGUAGE , %l ,
  96.                                                                         tag , tagarg ,
  97.                                                                         OC_VERSION , %v ,
  98.                                                                         TAG_DONE        ] )
  99.  
  100.         ENDIF
  101.  
  102. ENDPROC
  103.  
  104.  
  105. ->*****
  106. ->** Closing catalog procedure
  107. ->*****
  108. PROC close() OF catalog_%b
  109.  
  110.         IF localebase THEN CloseCatalog( cat_%b )
  111.         cat_%b := NIL
  112.  
  113. ENDPROC
  114.  
  115.  
  116. /****************************************************************
  117.    End of the automatically created part!
  118. ****************************************************************/
  119.